home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dbase / mSQL2_src.lha / msql-2.0-B3 / scripts / mkinstalldirs < prev    next >
Text File  |  1997-01-13  |  697b  |  39 lines
  1. #!/bin/sh
  2. # Make directory hierarchy. 
  3. # Written by Noah Friedman <friedman@prep.ai.mit.edu>
  4. # Modified to include directory modes David J. Hughes (Bambi@Bond.edu.au)
  5. # Public domain.
  6.  
  7. defaultIFS='     
  8. '
  9. IFS="${IFS-${defaultIFS}}"
  10.  
  11. errstatus=0
  12.  
  13. MODE=$1
  14. FILE=$2
  15.  
  16. oIFS="${IFS}"
  17. # Some sh's can't handle IFS=/ for some reason.
  18. IFS='%'
  19. set - `echo ${FILE} | sed -e 's@/@%@g' -e 's@^%@/@'`
  20. IFS="${oIFS}"
  21.  
  22. pathcomp=''
  23.  
  24. for d in ${1+"$@"} ; do
  25.     pathcomp="${pathcomp}${d}"
  26.     if test ! -d "${pathcomp}"
  27.     then
  28.         echo "mkdir $pathcomp; chmod $MODE $pathcomp" 1>&2
  29.         mkdir "${pathcomp}" || errstatus=$?
  30.         chmod "${MODE}" "${pathcomp}" || errstatus=$?
  31.         
  32.     fi
  33.     pathcomp="${pathcomp}/"
  34. done
  35.  
  36. exit $errstatus
  37.  
  38. # eof
  39.